home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Programmer / comprog2.d81 / b.set printer (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  5KB  |  170 lines
  1. 100 rem
  2. 110 rem code by rick nash
  3. 120 dv=peek(186):ifdv<8thendv=8
  4. 130 poke53280,0:poke53281,0
  5. 150 print""spc(6);"[153]6502 [201]nstruction [211]et [208]rinter"
  6. 160 print spc(9);"[195]opyright ([195]) 1991 by"
  7. 170 print spc(7);"[158][211]oftdisk [208]ublishing, [201]nc."
  8. 180 print spc(10);"[154]all rights reserved"
  9. 200 printspc(8);"[200]old on, [201]'m working..."
  10. 210 dim t1%(255),t2%(255),mn$(56),md$(13),am$(13),sz%(13),rr%(12),mc%(20)
  11. 220 dim hx$(255)
  12. 230 fori=0to255:readt1%(i):next
  13. 240 fori=0to255:readt2%(i):next
  14. 250 fori=0to56:readmn$(i):next
  15. 260 fori=0to13:readmd$(i):next
  16. 270 fori=0to13:readam$(i):next
  17. 280 fori=0to13:readsz%(i):next
  18. 290 fori=0to12:readrr%(i):next
  19. 300 t=0
  20. 310 h$="0123456789abcdef"
  21. 320 lm$="              "
  22. 330 ds$="--------------------------"
  23. 340 fori=1to16
  24. 350 : forj=1to16
  25. 360 : :hx$(t)=mid$(h$,i,1)+mid$(h$,j,1)
  26. 370 : :t=t+1
  27. 380 : nextj
  28. 390 nexti
  29. 400 lc=0
  30. 410 printchr$(145);:fori=217to242:pokei,peek(i)or128:next
  31. 420 print"   [208] [146][159] print [201]nstruction [211]et  [209] [146][159] [209]uit"
  32. 430 geta$:ifa$<>"p"anda$<>"q"then430
  33. 431 poke781,peek(214)-1:sys59903
  34. 432 ifa$="q"then2000
  35. 433 print:printspc(14)"[208]rinting..."
  36. 440 open4,4
  37. 450 print#4,"":print#4,""
  38. 460 fori=1to56
  39. 470 print#4,lm$;ds$;" ";mn$(i);" ";ds$
  40. 480 print#4,lm$;" addressing         assembly          op    no.     no."
  41. 490 print#4,lm$;"    mode              form           code  bytes  cycles"
  42. 500 print#4,lm$;ds$;ds$;"-----"
  43. 510 t=0
  44. 520 forj=0to255
  45. 530 :   if t1%(j)=i then mc%(t)=j:t=t+1
  46. 540 nextj
  47. 550 forj=0to12
  48. 560 :   ky=rr%(j)
  49. 570 :   fork=0to(t-1)
  50. 580 :   :   a=t2%(mc%(k))and15
  51. 590 :   :   c=(t2%(mc%(k))and240)/16
  52. 600 :   :   ifa=ky then gosub700
  53. 610 :   nextk
  54. 620 nextj
  55. 630 print#4,lm$;ds$;ds$;"-----"
  56. 640 print#4,"":print#4,""
  57. 650 lc=lc+7+t
  58. 660 iflc>50 then gosub740
  59. 670 nexti
  60. 680 print#4:close4
  61. 690 goto2000
  62. 700 print#4,lm$;md$(a);"    ";mn$(i);"  ";am$(a);"   ";hx$(mc%(k));
  63. 710 print#4,"     ";right$(mid$(str$(sz%(a)),1),1);
  64. 720 print#4,"      ";right$(mid$(str$(c),1),1)
  65. 730 return
  66. 740 fornn=1to(66-lc)
  67. 750 :    print#4,""
  68. 760 nextnn
  69. 770 lc=0:return
  70. 780 data 11,35,57,57,57,35,3,57,37,35
  71. 790 data 3,57,57,35,3,57,10,35,57,57
  72. 800 data 57,35,3,57,14,35,57,57,57,35
  73. 810 data 3,57,29,2,57,57,7,2,40,57
  74. 820 data 39,2,40,57,7,2,40,57,8,2
  75. 830 data 57,57,57,2,40,57,45,2,57,57
  76. 840 data 57,2,40,57,42,24,57,57,57,24
  77. 850 data 33,57,36,24,33,57,28,24,33,57
  78. 860 data 12,24,57,57,57,24,33,57,16,24
  79. 870 data 57,57,57,24,33,57,43,1,57,57
  80. 880 data 57,1,41,57,38,1,41,57,28,1
  81. 890 data 41,57,13,1,57,57,57,1,41,57
  82. 900 data 47,1,57,57,57,1,41,57,57,48
  83. 910 data 57,57,50,48,49,57,23,57,54,57
  84. 920 data 50,48,49,57,4,48,57,57,50,48
  85. 930 data 49,57,56,48,55,57,57,48,57,57
  86. 940 data 32,30,31,57,32,30,31,57,52,30
  87. 950 data 51,57,32,30,31,57,5,30,57,57
  88. 960 data 32,30,31,57,17,30,53,57,32,30
  89. 970 data 31,57,20,18,57,57,20,18,21,57
  90. 980 data 27,18,22,57,20,18,21,57,9,18
  91. 990 data 57,57,57,18,21,57,15,18,57,57
  92. 1000 data 57,18,21,57,19,44,57,57,19,44
  93. 1010 data 25,57,26,44,34,57,19,44,25,57
  94. 1020 data 6,44,57,57,57,44,25,57,46,44
  95. 1030 data 57,57,57,44,25,57
  96. 1040 data 117,102,5,5,5,51,83,5,53,33
  97. 1050 data 36,5,5,66,98,5,43,87,5,5
  98. 1060 data 5,72,104,5,37,74,5,5,5,73
  99. 1070 data 121,5,98,102,5,5,51,51,83,5
  100. 1080 data 69,33,36,5,66,66,98,5,43,87
  101. 1090 data 5,5,5,72,104,5,37,74,5,5
  102. 1100 data 5,73,121,5,101,102,5,5,5,51
  103. 1110 data 83,5,53,33,36,5,50,66,98,5
  104. 1120 data 43,87,5,5,5,72,104,5,37,74
  105. 1130 data 5,5,5,73,121,5,101,102,5,5
  106. 1140 data 5,51,83,5,69,33,36,5,92,66
  107. 1150 data 98,5,43,87,5,5,5,72,104,5
  108. 1160 data 37,74,5,5,5,73,121,5,5,102
  109. 1170 data 5,5,51,51,51,5,37,5,37,5
  110. 1180 data 66,66,66,5,43,103,5,5,72,72
  111. 1190 data 77,5,37,90,37,5,5,89,5,5
  112. 1200 data 33,102,33,5,51,51,51,5,37,33
  113. 1210 data 37,5,66,66,66,5,43,87,5,5
  114. 1220 data 72,72,77,5,37,74,37,5,73,73
  115. 1230 data 74,5,33,102,5,5,51,51,83,5
  116. 1240 data 37,33,37,5,66,66,98,5,43,87
  117. 1250 data 5,5,5,72,104,5,37,74,5,5
  118. 1260 data 5,73,121,5,33,102,5,5,51,51
  119. 1270 data 83,5,37,33,37,5,66,66,98,5
  120. 1280 data 43,87,5,5,5,72,104,5,37,74
  121. 1290 data 5,5,5,73,121,5
  122. 1300 data "   "
  123. 1310 data adc,and,asl,bcc,bcs,beq,bit
  124. 1320 data bmi,bne,bpl,brk,bvc,bvs,clc
  125. 1330 data cld,cli,clv,cmp,cpx,cpy,dec
  126. 1340 data dex,dey,eor,inc,inx,iny,jmp
  127. 1350 data jsr,lda,ldx,ldy,lsr,nop,ora
  128. 1360 data pha,php,pla,plp,rol,ror,rti
  129. 1370 data rts,sbc,sec,sed,sei,sta,stx
  130. 1380 data sty,tax,tay,tsx,txa,txs,tya
  131. 1390 data "filler space  "
  132. 1400 data "immediate     "
  133. 1410 data "absolute      "
  134. 1420 data "zero page     "
  135. 1430 data "accumulator   "
  136. 1440 data "implied       "
  137. 1450 data "(indirect, x) "
  138. 1460 data "(indirect), y "
  139. 1470 data "zero page, x  "
  140. 1480 data "absolute, x   "
  141. 1490 data "absolute, y   "
  142. 1500 data "relative      "
  143. 1510 data "(indirect)    "
  144. 1520 data "zero page, y  "
  145. 1530 rem
  146. 1540 data "filler space"
  147. 1550 data "#oper       "
  148. 1560 data "oper        "
  149. 1570 data "oper        "
  150. 1580 data "a           "
  151. 1590 data "            "
  152. 1600 data "(oper,x)    "
  153. 1610 data "(oper),y    "
  154. 1620 data "oper,x      "
  155. 1630 data "oper,x      "
  156. 1640 data "oper,y      "
  157. 1650 data "oper        "
  158. 1660 data "(oper)      "
  159. 1670 data "oper,y      "
  160. 1680 rem
  161. 1690 data 0,2,3,2,1,1,2,2,2,3,3,2,3,2
  162. 1700 rem
  163. 1710 data 1,4,3,8,13,2,12,9,10,6,7,5,11
  164. 2000 fori=0to9:poke781,i:sys59903:next:print"
  165. 60000 a$[178]"ml 101 boot":[159]15,8,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15
  166. 60010 [139] er[179][177]63 [167] [153]"load":[128]
  167. 60011 q$[178][199](34):[151]646,[194](53281):[153]""
  168. 60020 [153]"load"q$a$q$","dv
  169. 60030 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  170.